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Hullo VZers, and others. 


| am commencing to write this in 

the middle of June. This means that winter, 

(that's what Queenslanders call it) is nou 

with us. Fancy: 8 Degrees this morning. As 

some of you know | would like this weather 

for about half of the year, here at 
Toowong. 

This leads me into mentioning the 

latest concern of this world of ours, the 
Greenhouse Effect and the Enviroment. 


What do you think can be done by every > 


one of us to help improve the situation? To 
put a cat among the pidgeons", is it real 
or are we being conned? 

Perhaps we can use less printer paper 

when doing an LLISTing by BULL NE the 
printer in condenced/small mode. Most times 
I print on both sides of the paper. Do you? 
Perhaps we should pressure the printer 
paper manufacturers to start sup yane us 
with off white paper. We are Noll hat 
harmful chemicals are used to produce white 
paper. 


Anyway, there are many - many things 

that we can do to contribute to help 

improve our enviroment!! I would like to 
hear from folk in this regard. 


Can anyone help in throwing some light 

on another matter? What has happened to Mr 
Peter Hill in New Zealand? | have not heard 
from him for over a year. [I have been 
sending him LE’VZ but have not received any 
of his newsletters in the last year or so. 


Also the subject of Mr Mark Harwood and ' 


his VZ USER newsletter. [s anyone producing 
1 t 


it ye 
The prices of used personal computers 
x pner dnd dais 


is plummetinz further. IRE comprlabios 
under $1000.00. Here in South East 
Queensland a firm produces a paper 

called The Trading Post. |t advertises 
sellers used articles and buyers wanted 
articles. The seller pays the TTP a 
percentage of the item's sell price. !f the 
article is not sold it costs the seller 
nothing. 


In the "Computer" section there are 
plenty of cheap and expensive units for 
e. | have noticed that there are many 
llers who put prices on used VZ items 
hat are far too high. For an example, 

$150.00 for a VZ200. This compared 
with AMSTRADS for around $500.00. 


| 
l 
e 
t 
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The most tragic event since | 
published LE’VZ #23 was the unsuccessful 
democratic uprising in China. When it 
Seemed that the students and workers were 
getting somewhere, many were gunned down 
and otherwise injured, or killed. ШЕП 
technology played its part quite well for 
some time in Bene pictures and other 
information out to the outside world. 


As I am a Radio Amateur, I wonder what 
part the "Ham" world played and is still 
playing. 


All going to plan, commencing in the 
next LE’VZ will be a very interesting set 
of articles contributed by Mr Bob Kitch. 


I would like to hear from purchasers of 
my CASHBOOK LEDGER. Have you been able to 
make the necessary changes to the programme 
to suit the required needs? 


l understand Mr Joe Leon who is the 
editor/publisher of the Hunter Valley VZ 
Users Groups” Journal was very ill 
some months ago. I and I'M sure his many 
readers wish that he is well and truly 
recovered by now. Keep up the good work 
Joe, and from me, many thanks amigo. 
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HI-RES SCREEN MOVE Ze 
Dy Bob Kitch. 


‘Four subroutines are provided that can be called 
from within any BASIC program. Often it is desirable to 
be able to preserve a 2K Hi-res screen so that a Lo-res 
{text) screen can be displayed. After certain 
instructions are carried out, the Hi-res screen may 
need to be restored. The BASIC commands SET & RESET are 
much too slow for this application. The fast Black Move 
command inherent in the 780 is made for the task. 

The subroutines given are general and relocatable 
for any YZ. The Block Move construct is called via the 
SR command. The Move routine is modified during 
execution so that it is used as a Block Fill routine 
and also moves the screen image both ways between Video 
RAM and the Hi-mem buffer. 


i, SUBROUTINE 2000 - INITIALIZATION. 

This section should be called early in the mainline 
program, It lowers TÜM, reserves 2400 bytes af Hi-mem, 
loads 14 bytes of machine code and sets up a number ot 
pointers. Ensure that these variables are not re-used 
during program execution. 


HR & LR - MSE and LSB of starting address for Routine. 
MS & LS - ditto for Storage butter. 

HY $ LV - ditto for Video RAM, 

i SS+1i - address for Source. 

5 DS+1 - address for Destination. 

& 15+1 — address for LD (НЬ), ХХ bytes. 


i 
Cr Cr 1-1 


The 14 bytes of M/L are loaded into the butter and 
are first set up as a Destructive Block Fill. 


LD HL, SOURCE 
LD DE, DESTINATION 
LD BC,SIZE 

LD (HL), CHARACTER 
1018 

RET 


The initial colour of the screen buffer can be set 
hy altering the second piece of data loaded in line 
3330. The addresses for SOURCE and DESTINATION are 
initially set to dumay values of Zu. 


3. SUBROUTINE 4000 - CLEAR HI-MEM BUFFER. 

This is the Block Fill call which is also needed 
early in the program to fill the 2k buffer with a 
certain CHARACTER. It sets up the USR Vector, pokes in 
the SOURCE and DESTINATION addresses and finally 
modifies the M/L code to a Bjork Mnvs tema, 


PRESERVE UTILITIES 


LD HL,BUFFER — ;L5,MS 
LD DE,BUFFER+1 ;L1,Mi 
LD BC, 20480 

NOP 

NOP 

LDIR 

RET 


3. SUBROUTINE 4000 - MOVE SCREEN TO HI-MEM BUFFER. 

This routine is called whenever the video screen 
located from 7000H to 77FFH is ta be moved into the 
Hi-mem buffer. A Lo-res screen can then be displayed 
under program control. 


LD HL,7000H — ;LV,IN 
LD DE, BUFFER ;L5,MS 
LD BC, 2048D 

NOP 

NOP 

LDIR 

RET 


4. SUBROUTINE 5000 - MOVE HI-MEM BUFFER TO VIDEO RAM, 
This sets up the Block Move as shown below and 

restores the Hi-res screen that had previously been 

buffered. 

LD HL, BUFFE 

LD DE, 7000H 

LD BC, 2048D 

NOP 

NDP 

LDIR 

RET 


Well that's about it! Generally speaking, 
SUBRDUTINES 3000 and 4000 should be run early in the 
calling program, as they set up and pre-load ihe buffer 
area. I trust that users find these routines very 
useful - they have been invaluable when writing 
graphics editors. 


fs a Footnote, it is worth recording the action of 
the LDIR opcode. It's action is as follows i- 


i/  Rssign (HL) to (DE) 
ii/ INC HL 

iii/ INC DE 

іу DEC EC 

v/ Repeat until BC=0 


GOTO FOUR 
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, 4999 "HERMDVE 2K SCREEN BUFFER TO TOM BUFFER. 


1 иннннниннннннннннннн N 

2 '+++ SCREEN MODE MOVER он 5000 FOKE 50853, МК: РПКЕ 30B52,LR : '¥##5ET USRÛO FOINTERS. 

3 He A SET OF SUBROUTINES +4 0010 РОКЕ SS LV:POKE SS+1, MV НЕТ SOURCE ADDR. 

4 “ese TO SWITCH BETWEEN HH 5020 POKE DS,LS:POKE DS+1,MS :HHSET DESTINATION ADDR. 

J н HI & LO RES +++ 1030 S=USK (0) : HHMOVE SCREEN TO HI-HEM, 
6 “хы BY EX 3040 RETURN 

? сан BOB FITCH x 9998 ' 

8 “ан 6/87 xx 5999 'xixMOVE TOM BUFFER INTO 2K VIDEO RAM... 

GF ‘HHHH 6000 POKE 30883, MR:POKE 30662, LR ӘСЕТ ШӨҢІ? POINTERS. 

iû 6010 RODE 1} ; '###HI-RES МШЕ. 

15 ‘THIS SET OF SUBROUTINES 15 USED IN ERUCE'S ART GALLERY. 5020 POKE SS,LS:PUKE S341, Tb i GET SOURCE ADDR. 

2008 * | 5050 PORE DS,LV:PORE DSH MY :3xxSET DESTINATION ADDR. 

2999 ‘###INITIALIZATION - CALL AT START OF PROGRAM. 6040 S-USR() : HHAMOVE. SCREEN. TO. HI-MEH. 
3000 MI-PEEK(GOB9B):LI-PEEK(30897) — : Xx«FIND TOM. 6030 RETURN 

3010 ТМ=М1+25&+ 1 : TOM. 7000 END 

3020 TH=TM-2400 2 HHERESERVE 2.46 BUFFER. i 


2030 MS=INT(1M/206) :LO=TN-NS#254 : 3a NEW TOM, 
3040 POKE 30898, Ka: PORE 50897,15 : GHESGET. NEW. TOM. 





S050 CLEAR 300 : #HRESET POINTERS. 

3050 TM=PEEK (30898) #254+PEEK (30898): “HHNEW TOM. 

3070 TM=TH+H : '#¥#START ADDR, BUFFER. 

3080 MR=INT(TM/256) :LR=TM-MR4256  t '###START POINTERS. 

3090 FOR MS=TM TO TH+i3 гэны Пар ІМ М/С. 

3100 —— READ L5: ID-MS SET UP ADDR. 

3110 ТЕ 10232757 THEN ID=ID-65536 : “PHCONV, TO S. INT. 

3120 РЕ 10,15 : +##POKE IN MOVE CODE. 

3130 NEXT MS 

3140 S5-TMH : '¥¥#ADDR. SOURCE. LN 

3150 IF 55222787 THEN S5=SS-45536  : CONV. TO S. INT. : 
3160 DS=TM+4 | : ‘###ADDR, DESTIN, е e 
3170 IF 05532767 THEN DS=DS-655%6 :'FHFCONV, TO S.INT. ОТЕ ж ERDE 
3180 ZS=TH+9 1 PADDR. 2K HFF. | 22. 22 5-2 
3190 IF 25332747 THEN 15-15-55536 — :“HHDNV. TO S. INT. | ыле 

3200 TH=TH+30 : “START OF SCAN BUFF. = 

3210 MS=INT(TM/256) ¿LG=TM-MG4256 00: START OF 2K BUFF, liada 
3220 MV=112:LV=0 : START OF VIDEO RAM. с cad с е 
т prices to fall. The UK PC 
3299 'HHDESTRUCTIVE BLOCK FILL ROUTINE. | 22. г 0. 
3300 DATA 033,255,255 LD HL, SOURCE. шш ge Gee бы 
3310 DATA 017,255,255 + LB DE, DESTINATION um Коне ти 
3320 DATA 001,000,008 :'LD BC,SIZE po +. 
3330 DATA 054,000 : "LD (HL) CHARACTER es 

3340 DATA 237,176 ШИК Ф 

2 DATA 2 C RET Telecom Australia sn Aa 
3999 "#*#CLEAR BUFFER ROUTINE, a. 2222. 
4000 FOKE 30863, MR:POKE 30862,LR  :'+sxSET USRO POINTERS. en 


“HHSCURCE ADDR. 
SHHCALE SOURCE+, 
SHHICHELE RANGE. e 
: #%#DESTINATION ADDR. 


4010 PORE S5, LS:FOEE 55+1,М5 
4020 Mi=MS:L1=15+1 

4030 IF 112255 ТНЕМ Li=0:Mi=Mi+l 
4040 РПЕЕ DS,L1:PORE DS+i,M1 


ич “on au 


^ ^ "à i GTE recently — installed ai 
4059 S=USR 10) :HASET 2K BUFFER. ee - m : 
earth satellite s ! 8 
4050 POKE 25,0:POKE 281,0 : HERINGERT NOP‘S лл Ие е 
4070 RETURN Maghtab in Malta which will 
x LE : г : 
provide a direct satellite 
On ' PROYIGG а 
4998 


telacnmaunications link and 
1 


liows IDB contact for the 






4 seo. 


This continues from LE'VZ # Z3. 
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The last line in BASIC was 7460. We are finishing printing the left hand side of ihe pu From line 12000, the right 


side of the paper figures are totalled. The same applies to the additions section, 7100 ta 


is it could be simplfied by writing a shor! routine. 


460, as lines 7000 to 73060. That 


From line 16000 to line 16300 is for correcting any data. Line 17000 to 17300 is to check that the Columns totals equal 


the Bank total. 


Note that the Column names in line 14084 to 16097 can be chan 


7300 REM////PRINT COLS TOTALS/// 

7502 JBHT2+TS+ T4415 

7508 LPRINTCi$;" TOTALS"; 

T5310 LPRINTCHRS (15) ; "29" 5 T1; : REM. BANK 

7850 LPRINTCHRS (15) ; "39": T2; : REM PARTS 

7555 LPRINTCHRS (10) ; "48" ; T3; : REM CAR 

7560 LPRINTCHRS (16) ; "37" 5 T43: REM PRIV 

7565 LPRINTCHRS (16) ; "67" 3 T3: REM. STAT/PRINT 

7600 REM//// 4 COLS ADDS ///7// 

7630 TB=T2+T3+T4+T5 

8000 REM////// FINAL ADD /////// 

8010 LPRINT"PREVIOUS RUNNING TOTAL" 

8012 LPRINT A6$+A6$ 

8060 LPRINT"NER TOTALS" 

8073 LPRINTA1$401$ 

8080 LPRINT 

8155 ІРКІМТ 48%+48% 

9100 507012000 

9200 ЕМ) 

12000 REM/\/\/\/\ RIGHT SIDE/\/\/ 

12010 REM\/\/\/\ TOP HEADING /\/\ 

12050 LPRINTAOSHABS: LPRINT 

12060 LPRINTCHR$ (14) ; 86$: REM DOUBLE WIDTH 

12070 LPRINTCHR$(15); 30":C15;"  ";C2$: REM. HONTHSYEAR 
12170 LPRINTAGS 

12180 LPRINTCHRS (10); 

12190 LPRINT" "4D1$4*. "4B9$; 

12200 LPRINTCHR$ (15) ; 24": D25; :LPRINTCHRS (162, 334 D385- 
12210 LPRINTCHRS (16) ; "42"; J45; :LPRINTCHRS (16) "51" D4$; 
12220 LPRINTCHR$ (15) ; "60": D55; : LPRINTCHRS (15) "69" D6$ 
12230 LPRINT" "4D9$4" — "«D8$; 

12240 LPRINTEHRS (15) ; "24"; J1$: :LPRINTCHRS (18) 5 3375 7253 
12250 LPRINTCHR$ (16) ; "42" : 358; :LPRINTCHRS (16) ; "51^ 5 J3553 
12251 LPRINTCHR$ (15) ; *60"; J6$; :LFRINTCHRS (16) " 59* 77$ 
12240 LPRINTASS+A$ 

12300 REM\A\\\\ PRINTOUT МАА 

2310 FORR=1TGE 

12320 US="sHHHHHHAHE 

12323 LPRINT" T 

12330 LPRINTUSING U$;D(R,9) ;D(R, 10) 5DIR, 11 5D, 12) 5 DOR, 132 
12340 LPRINTUSING U$;D(R, 14) 5D (R, 15) 5 DER, 16) 

12350 NEXTR | 

127400 REM\\\\ ALL ADDITIONS \\\\ 

12420 LPRINT:LPRINT 

12435 LPRINTASS+A6$ 

12440 КЕМ\\\\ ЕМТУТКАУ ЗАМАА 

14000 REM///// ENT/TRIV /////// 

14033 R=0:N=0 

14040 R=R+1:N=N4+1 

14045 K(N)=D(R, 9) 

14050 IFR<{ETHEN14040 


ged to suit your requirements. 


14055 REM///// ENT/TRAV ADDS//// 
14060 Tá=0 

14065 X=X+1 

14070 FORK=1TON 

14075 Té=T6K 00 

14080 NEXTX 

14100 REM////SPECL/DRAM/ 111141111 
14115 R=0:N=0 

14120 R-RH:NENHL- 

14125 KIN) =D(R, 10) 

14130 IFR<ETHEN14120 

14135 REM////SPECL/DRAW ADDS///// 
14140 T7=0 

14145 X=X+1 

14150 FORX=1TON 

14155 17-77% 00) 

14160 NEXTX 

14200 REM /// BANK CHARGES///// 
14215 R-0:N-0 

14220 R=R+1:N=N+1 

14225 K() -DIR, 11) 

14230 IFR<ETHEN14220 

14235 REM////BANK CHARGS ADDS//// 
14240 T8-0 

14245 X=X+ 

14250 FORX=1TON 

14255 TB=TB+K (X) 

14240 NEXTX 

14300 REM///TRANSE 37 ST ¿111114 
14315 R=0:N=0 

14320 R=R+L:N=N+L / 

14325 K(N)=D(R, 12) 

14330 IFR<ETHEN14320 

14325 REM///TRANSF 37 ADDS ////// 
14340 T9=0 | 

14345 X=X+1 

14350 FORX=1TON 

14355 T9-T94K Q0) 

14360 NEXTX 

14400 БЕМ/////// ADVERTS 114414 
14415 R=0:N=0 

14420 R=R+1:N=N+1 

14425 K(N)=DIR, 13) 

14430 IFR<ETHEN14420 

14435 REM//// ADVERTS ADDS/////// 
14440 51-0 
14445 X=X+1 
14450 FORX=1TON 
14455 S1=514Kk 00 
14460 NEXTX 

i СОТО 51Х 


PAGE 6 LE’VZ 200/300 DOP. 


14300 REM////PETTY CASH// 41117111 

14535 R=0:N=0 

14540 R=R+1:N=N+1 

14345 K(N)=D(R, 14) 

14550 IFR<ETHEN14540 : 
14555 REM/////PETTY CASH ADDS//// 

14540 52 

14565 X=X+1 

14570 FORX=1TON 

14573. £2-524K (X) 

14580 NEXTX 

14600 REM///// SUNDRIES ///////// 

14615 R=0:N=0 

14620 R=R+1:N=N+1 

14625 K(N)=D(R, 15) 

14650 IFRXETHENL 4620 

14635 REM///// SUNDRIES ADDS///// 

14640 53=0 

14643 X=X+1 

14650 FORX=1TON 

14495 SISSI 00 

14660 NEXTX 

14700 REM///// PROP/ INV /////// 

14713 R=0:N=0 

14720 R=R+1:N=N+1 

14723 KIN)=D(R, 16) 

14730 IFR<ETHEN14720 

14735 REM/////PROP INV ADDS////// 

14740 54=0 | 

14743 X=X+1 

14750 FORY=1TON 

14753 54-54+K (X) 

14760 NEXTX 

1000 REM////PRINT COLS TOTALS// 

15040 TC=T4+T7+T8+79+51+52+53+54 

15080 LPRINT" "Tas" T7, 
15100 LPRINTCHRS (16); "28"; TB; : REM. BANK. CHB5 
19110 LPRINTCHR$ (162 ; "25": T9: : REM. TRNSF. 37 
13120 LPRINTCHRS (18) ; "44" 151; REM ADVS 
15130 LPRINTCHR$ (15); "51":52: : REM. P/CASH 
15140 LPRINTCHR$ (16): "52": 53; t REM. SUNDS 
15150 LPRINTCHRE (14); *71";54;: REM PROP/INV 
13150 LPRINT:LPRINT 

19200 LPRINTASS+AG$ 

13210 LPRINT 

13219 LPRINTA1$+815 

15290 TE=TB+TC 


15500 IFTE=TITHENLPRINTC1S;" TOTALS CORRECT $*:TE;" Ki 
15510 IFTE<>TITHENLPRINT" TOTALS INCORRECT";TE;" „ 
19518 LPRINTTE;" ";"4";* Т = Petje 

15400 LPRINTADS+58$ 

15500 5070100 

15000 REM ////7/ CDRRECTIUN //// 

14020 CLS 


16030 INPUT"MHICH RECORD (ROW)?";R:PRINT | 


16033 PRINT"WHICH GROUP 1 = DATE МАМЕ CHQ"’ 
16034 INPUT"WHICH GROUP 2 =BANK ONWARDS": x 
14035 IFX=160T016040 
16036 IFX=260T014080 


à 7 à TU 15:X 


16038 IFX>2THENPRINT"CHOOSE CORRECTLY, "yy." : SQUNDZO, 9: 607015053 


#24. 


16040 INPUT"WHICH COL 1 TO 3^;€ 

16043 IFC>3THENPRINT"CHOOSE CORRECTL VIII": SOUNDZO, 9: 607016041 
16050 PRINT:PRINT 

16040 PRINTD$ {R,C) 

14065 PRINT: PRINT 

16070 PRINT"NOW TYPE IN CORRECTION" 
16073 INPUTD$(R,C) 

18078 607018200 

16080 INPUT"WHICH FIELD 4 TO 16"sCA 
18083 IFCA<4ORCA> LSTHENPRINT"CHOOSE CORCTLY": SOUNDZO, 9: 507014080 
14084 PRINT: PRINT 

16085 IFCA=4THENPRINT"BANK® 

16086 IFCA-STHENPRINT*CATTLE CODE-4" 
16087 IFCA=ATHENPRINT"SHEEP CODE-5° 
16088 IFCA=7THENPRINT"FODDER CODE-10" 
16089 IFCA-BTHENPRINT"INT/INS RATE RENT" 
16090 IFCA=9THENPRINT*REPAIRS/MAINT" 
16091 IFCA-10THENPRINT* IMPROVEMENTS" 
16092 IFCA=11THENPRINT"PONER FUEL OIL" 
16093 IFCA-12THENFRINT"BANK CHARGES"7 A ST. 
16094 IFCA=13THENPRINT"POSTAGE PHONE" 
16095 TFCA=14THENPRINT"ADVERTS SUBS ЕТС" 
16096 IFCASLSTHENPRINT"NON FARM DRAWINGS" 
18097 IFCA=16THENPRINT"PLANT EQUIP" 
16188 PRINTD(R,CA) 

16189 PRINTSPRINT 

16190 PRINT"NOW TYPE IN CORRECTION" 
15195 INPUTD(R, CA) 

16200 INPUT"PRESS RETURN TO CONTINUE"; $ 
14290 CLS 

16300 GOTO100 

17000 REM\AM\\ VIEW ADDS WAAL 

i7005 CLS 

17020 R=0:N=0 

17030 R=R+1:N=N+ 

17035 K(N)=D(R, 4) 

17040 IFR<ETHEN1ZOZO 

17045 Ti=0 

17050 Х=ї+1 

17055 FORK-1TON 

17050 TizTL4K QD 

17065 NEXTX 

17080 PRINT"BANK TOTAL "Ti 
17100 REMA ALL OTHER TOTALS 

17108 TF=0 

17119 FORZ=5T016 

17120 R=0:N=0 

17130 R=R+1:N=N+1 

17135 KIN)=D(R, 2) 

17140 IFRXETHEN17120 

17150 X=k+1 

17155 FORX=1TON 

17160 TRSTF+K(X) 

17185 МЕХТІ 

17170 NEXTZ 


17180 PRINT"ALL COLUMNS TOTALS "¡TF 
17185 PRINT:PRINT 
17192 IFT1=TFTHEN17210 

GOTO TEN 
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by Bob Fitch. Part Bee 


This excellent contribution from Bob continues 
rom LE'VZ 4 23. 


E EEE 

2 “tt INTERRUPT DRIVEN eee 

3 '#++ REAL TIME CLOCK жн 

A "uu FOR VZ COMPUTER жни 

ETT: EY ВОВ ЕСЕН аж 

8 “ЕТІНЕ REEPING  ROUTINE+e 

7 '** — [8S COMPLETELY — eek 

8 “ан REL OCATABLE +++ | 

9 REMERA ОЕ СҰР 200/200 JDP 15 PUBLISHED APPRIZ IF 

PP EO 

20 GOTO 100 ûli material is subject tau „Jr FIGHT. Contributes 
ж” material 15 1 with the permission Gf ¿he 
27 ‘asaUSEFUL NUMERIC LOADING SUB-ROUTINES. . lie а 
Ж ' een iers only. 

27 “44CONVERT UNSIGNED TO SIGNED DECIMAL - PASSED IN UD % SDZ. 


30 1F UD+32767 THEN SDZ=INT(UD-65526) ELSE BDZ-INT ID) 
53 RETURN 





39 CONVERT UNSIGNED DECIMAL TO MSB % LSB - IN UD, MEZ, 151. 

40 MSZ=INT (UD/256) s LSZ- INT (UD-2568852) e 

45 RETURN м q М вн ита 

48 * ye ES ^ ae 

49 "xsCONVERT SIGNED TO UNSIGNED DECIMAL - PASSED IN SD% & UD. С = 

50 IF SDX{0 THEN UD-5D4+65534 ELSE UD=SDZ 2 

JJ RETURN di He thet diirgentii ( 

%8” C лере g J pr Sursee | 

99 ‘##3PUT UP INTRO MESSAGE. i se wi equ | 

100 CLS:PRINT@4, "REAL TIME CLOCK ROUTINE" ) rare TE y 

110 PRINT@197, "LOADING MACHINE CODE" J eesli come to im. ( 

199 i | 

200 “###LOWER TOM TO ENABLE ROUTINE TO BE STORED. ee Je 

20 Thi= (2564PEEK (30898) +PEEK (30897))-100 2 “HHRESERVE 99 BYTES. _ 
Ò UD=TH:GOSUB 40:POKE 30898, MS%:POKE 30897,L5% = == > 

230 CLEAR 100 : “HHRESET POINTERS. “ы. «Әке г 


240 SZ-0:MZ-0:HZ-0:5AZ-0:HAZ-0:HA4-0 
250 iijzü: TM-0: AD-0: 5DZ-0: M52-0:L 27-0 : X*INITIALIZE STORAGE 


260 1%=0: J2=0: DV%=0:05%=0 : GHHBEFORE DIHEN ING. 
279 DIM VAA(2, 23) : ###INITIALIZE ARRAY. 
280 ТИ=250+РЕЕК (30899) +РЕЕК (20897) s AHNEN TOM. 

AGO ° 


300 “###READ IN TIME KEEPING ROUTINE, 

310 FOR AD=TH+i TO TM+77 

520 UD=AD:GOSUB 30:READ DVZ: POKE SD, DV 

A30 CSZ-LS5Z4DVZ 

340 NEXT AD 

390 IF ESto8110 THEN PRINTO293, "CHECKSUM NOT CORRECT"; 05%: STOP 
399 ' 

400 "**INITIALIZE PDINTERS IN VaZO. 

410 FÜR IZ-0 TD 23 

420 READ VAZ(G, TZ) :UDZTIHVAZ (OO, T2) :BOSUB. S0: GDSUB. 40 

40 VAL(, DO -SDZ: VALL, T2) 2182: VA CZ, TE) 2 M8 ШЕКТЕН 
440 NEXT IZ coc GOTO NINE 


GE VA 


484 ” 

300 “eHHODIFY DUMMY ADDRESSES IN TIME KEEPING ROUTINE. 

210 РӘКЕ УА (0,43, УА (1,0): РПКЕ. УА (0,5), УА2(2,0: t44 <KOUNT> 
320 FÜR Ik= 1 TO 3 2. 
330 РОК Ji-iZs6 TO 1/x6+4 STEP 2 Ei DOLD'ENDCES EALH 
340 PORE VAZ(O, P2 , VAL OL, TZ) SPOKE m Ti VAAIA iA? 
550 NEXT IE 

360 NEXT IE 

IN SAA=VAACO, 1) :MAZSVAA CU, 2) HAAVAA (0,3): ° ADDR FOR SEC. HIN, HR 
600 “EHSET UF JUMP ADDRESS IN INTERRUPT VECTOR. 

610 UD=THM+1;G0SUB 40 

220 РОКЕ 30846, LS5%:PORE 30847, M54 :OHBYTES 2. 3. 

030 “60 TD 20000 :‘##4DEBUG JUMP TO PRINTER LISTING. 
899” 

TOQ ‘FRET TIE, 

710 PRINTG293, -ENTER. CURRENT TIME," 

720 PRINT@229, “INPUT HOURS";:1NPUT DV 

730 IF DVi OR DV2>12 THEN БОТО 720 ELSE PUKE HAA, ЧА 

740 PRINT@389, "INPUT MINS "ss INPUT DVZ 

750 IF DVA<O OR DVOSY THEN GOTO 740 ELSE POKE MAZ,DVA 

7 

BOD “4%4S5TEAL INTERRUPT VECTOR. 


810 РОКЕ 20845, 199 :COGBORIUMP. TG. TIME ROUTINE, 


899” 
700 “DISPLAY TIME ON BOTTOM LINE OF SCREEN, 


910 FOR 1%=29120 TO 29151 

920 РОКЕ 15,109 

930 NEXT IX 

340 T$="TINE : ‘###DISFLAY TEMPLATE. 
950 ‘CLS : '###REHOVE REM IF RE'D 
960 SI=PEEK (SAY) 2 MU=PEEK (MAY): H=PEEK (HO 

970 PRINTEABA,USING T$; HZ, M, S; 

250 GOTO 940 


iiid 


2000 "&«&TIME KEEPING ROUTINES 

2010 ALL ADDRESSES SET TO 255 ARE DUMMY PARAMETERS AND ARE 
2020 “ARESET FROM BASIC, 

2030 “HHREGISTERS USED AF, BC, HL. 


3000 

3010 ' COUNT DOWN SECONDS, 
3020 DATA 035, 258, 255: "LD HL, ROUNT 

3030 DATA 053 DEC (HL) 

3040 DATA 192 SO RET N 


HESECONDS RQUTINE.‏ | لن 
DATA 054,050 ШИН), 50‏ 3066 

3070 DATA 058,295, 255: LD A, (SEC) 

3690 DATA 040 = INC A 

3090 DATA 234,060 :° ГРА 


3100 DATA 040,005 JR Lid 
3110 DATA 050,255,255:  LD(SEC),A 


3120 DATA U24,056 n JR L4 
5150 ' #449 1NUTES ROUTINE. 


3140 DATA 035, 20, 258: Li LÛ HL, SEL 
3150 DATA 054,000 093,0 
3160 BATA 056,755, 205: ' LD A, (MIN) 


3170 DATA 050 2” INC A 
3180 DATA 254,060 — :' CF 40 
3190 DATA 040,005 Ж 1,2 
3200 DATA 050,295, 200: L DOMIN) A 
3210 DATA 024,038 — :' — JR Là 
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3220 © ##4H0UR ROUTINE. 
3230 DATA 033,255,255: ' L2 LD HL,MIN 
3240 DATA 034,000 © ШИН 7,0 
5290 DATA 001,000,001: ° LD BL, Zas 
3260 DATA 033 042,000: ' LB HL, 42 


5270 DATA 205,092, 052 CALL 345CH 
3280 DATA 058,255, 2553" LD A, (HOUR) 

5290 DATA G40 e INC A 

3300 DATA 294,013 2° OF 13 

3510 DATA 040,003 +:° JR LLS 

3320 DATA 030, 200,23 LD (HOUR), A 

3530 DATA 024,011 P JR LÀ 


340” ЕНДІК RESET ROUTINE. 

3350 DATA 033,20, 2002 L3 LD HL, HOUR 

Алай БАТА 954,001 t. «БІН, 

53570 DATA 024,004 v JR L4 

3380 DATA 000 d D5 KDUNT 

3390 DATA 000 p: 05 SEL 

5400 DATA 090 ES DS MIN 

3410 DATA 000 : DS HOUR 

2420 C 4#45CREEN UPDATE ROUTINE HERE. 
2430 DATA 201 2° L4 RET 

3999 ' 

4000 '##40FFSETS FOR PARAMETER STORAGE ABOVE ROUTINE. 
4010 DATA 73 : КОШТ 

4020 DATA 74 : SEL 

8030 DATA 73 : MIN 

4040 DATA 76 : HOUR 

4300 ‘##e0FFSETS FOR PARAMETERS IN MACHINE CODE ROUTINE. 
4210 DATA 2,2 :  <EGUNT> 

4770 DATA 9,10 : ‘SEL? 

4230 DATA 17,18 СЕ 

4740 DATA 22,23 :' SEC? 

4250 DATA 27,28 : HIN? 

4250 DATA 33,36 << MIN 


4270 DATà 40,41 —— : MIN 
4280 DATA 54,55 2 "HOURS 


4290 DATA 82,83 : НК? 

4300 DATA 47,48 : ¿HOUR > 
4310 STOF 

4999 - 

9999 ‘seeUPDATE DISE FILE. 


10000 ERA"RTCLOCK":SAVE"RTLLOCE" 
10010 : ті ӘТЕР 


20000 НЕВЫ DUMP TO PRINTER. 
20010 TO ACTIVATE, TAKE GUT REMARK IN LINE#S50. 
20520 LPRINT"DEBUG DUMP FROM REAL TIME CLOCK” sLPRINT 
20030 LPRINT'TOM=", TH: LPRINT 
20040 LPRINT" INTERRUPT VECTOR", PEEK (30846) , PEEK (30847) : LPRIN 


. 26050 LPRINT"PARAMETERS" 


70060 FOR [4-0 10 3 

“0070 LPRINT 12, YAXi0, TO VAR, 12} VAAIZ, IR) 

200BO NEXT IZ:L PRINT 

20096 LPRINT"POINTERS IN VAGO” 

70100 FOR 1Z-4 T0 23 

20110 — LPRINT. IX,UAZ(O, LZ) ,VAZU , T2) , VAZ CZ, T2) 
20120 NEXT IZ:LPRINT | 
30000 END 
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17195 PRINT:PRINT"BOTH TOTALS MUST BE THE SAME, DO CORRECTIONS" 
17198 607017215 
ae тр HR p ALTEN 17210 PRINT" OKI) BOTH TOTALS ARE THE SAME*:GOTO17290 

к E Т | 17215 РКІМТ:РКІМТ: 5004030, 8: SQUND20, B 

Біздда reier tn my earlier articles auiding you te ^ pn ; 
ur er „ес а guiding yau tC | 17250 PRINT<PRINT: — INPUT*PRESS RETURN TO CONTINUE; Q$ 
SESISN ang p. срегігі кар ас рах те ie duce: 2 17280 CLS 

These articles are in LE‘V2Z #21 and #22. in іі e 
printed the data for the letters A, Bang C only. Here | 17300 65070100 
35 seins с tins paja ziha: B. А Ез 7 Trac ir i 4411 
„= E: a eu nm ANGIE FILE; vt ar on ue e 20000 REM! ERROR SOUND 13133) 
sre working with QUICKHRITE, the lett “smaller tan : S 
symbol "4" must be replaced with a "square left | 20020 SUUNDIO, 2: SDUNDSO, 1 
racket’, r nad 0 print it this aay 50 that ay 20030 NEXTY , 
srinter does nat think ihe data number inside one | e 
brackets = a printer code. | ШЕ 20040 RETURN 
ee ern ; Rm 
o This is easily done in a few seconds using "FINE ۱ 
AND REPLBCE", Tha first five codes as underlined, 77 to 
CO are the gontrol codes. Letter PĀ isi- 128, 14, 14, 0 
AL. O^ 180 448 44, 14. 14. 6.5 | 
ч Cs. Bl 47: Чы: іш 173 Wawa 


- a i i 1 = 4 
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2810254014294 016130 0113010128 40 1C L283 29 лон what other information is ау 
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OM 12812402540 SECON LSAT 0% 124150150151281 Еве 

2541:0152541501514425815148150159815015015128 1181501 :  Herdwere 100% Sıdenays Ran - Joe Leon 

2246150151481501614815015921501501512815128150251281025 ; ашык ЕТІНЕ 
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